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Little program 
With 


A very handy 
want to experiment 
Programing, 

program and run, you will be 
9iven three choices " 
ONE..MEMOD You are asked for start and 
end address you then step through memory 
one byte at a time and are given the 
chance to enter new data in hex; press 


SRETURN> and step on to the next byte, 


TWO..REVIEW displays on the screen 16 
Lines by 8 columns of hex data, Press 
<SPACE> to bring up the next 16 Lines of 
data, 


THREE. .PRINTOUT use your printer to get 


à hex dump of your program. If you wish 
to have 16 bytes per Line then change 
the end of tine 8 to read.., 


FOR N=1 TO 16 


MEMOD BY .R.G.DAVIS 8 AUGCARDO ST MILDURA 


CLS:CLEAR 50g- ` 
PRINT"MEMOD SS 
PRINT"REUIEH R" 
PRINT"PRINTOLT P" 
INPUT Y$ 
IF Y$="™" 
IF Y$-"R" 
GOSUB 30 
GOSUB61:LlPRINT Hs" "p" 
GOSLIB 36:LPRINT H$" "; 
GOSLIB 38:NEXT:LPRINT:GOTO 9 

GOSLUB 30:CLS 

GOSUB 61:PRINT H$"  ":GOSUB 36 

PRINT H$"  ";:INPLI B$ 

iF B$-""THEN 16 ELSE GOSUB42:POKE I,F 
GOSLIB 38:GOTO 13 

GOSUB 3@:CLS 

PRINT3:FOR T=1 TO 16 

PRINT :GOSUB 61:PRINT H$" "“3:FOR N=] T 
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' GOSUB 36:PRINT He" "w; 

21 GOSUB 388:NEXT:NEXT 

22 Z$=INKEY#:Ll£=INKEY$:IF N$ <" 
23 GOTO 18; 


“THEN 22 


THEN D 


` ` 
A 
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30 INPUT"START ADDRESS" ;M:B=M ` 

31. IF 432268 THEN 33 ELSE QsM 

32 GOSLIB 40 :M-X 

33 INFUT"END ADDRESS" sE 

34 IF EX32268 THEN RETURN ELSz Q-E 
35 GOSUB 40:E-X:RETLURN 

36 D=PEEK(M):DE=D:IF D<32 THEN DE=46 
3? H$="" :GOSLIB 65 =RETLIRN 

38 M=M+1:IF M=32768 THEN GOSUB 4] 

33 IF M=E THEN END ELSE B=B+1:GOTO 6] 
40 X--1X(65536-0) :RETLIRN 

41 Q=M:GOSUB 4@:M=x:RETURN 

42 C$-B$:F-0:GOSUB 4g 

43 RETLIRN 

44 IF C458 THEN C-C-4g 

45 IF C»63 THEN C-£-55 

46 RETURN 

48 C=ASC(C$) 

49 GOSUB 44:G-16XC:F-F4G 

90 C$-RIGHTSCB$, 1) ::-6SCCC$) 


|91 GOSUB 44:F-F«C:RETLIRN 
|91 H$="" :A=B/4@96:A=INTCA):GOSUB 62 


62 D=B-4a96xA 

63 A=D/7256:A=INT(A):GOSUB 67 

64 D=D-256xñ 

65 &-D^16:82INTCA2:GOSUB 67 

66 &-0-16x6 | 
62 ñB=ñ:IF ñ>9 THEN A=A+55 ELSE A=A+48 
68 A$=CHR$(A) :H$=H$t+A$ :A=AB :RITURN 
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ANOTHEK CONTAE UTON AGa 
CRMC MILNER oe PERTH. 


BASIC DODGE 

> POKE380744,1:? IF YOU HAVE A EARLIER 
YOU DO NOT NEED THE POKE 

0 CES 

10 A=28672:xX=16 

20 I$=INKEY$:IF I$="K"THENX=X-1 

30 IFI$="L"THENX=X+1 

40 IFPEEK(ñ+%X) <>32THEN280 

S0 PRINT@X, "U" 5 2S=S+1 

50 PRINTG480*RND(31), "x" 

7/0 GOTO 28 

200 CLS 

218 SOUND1,1:PRINT"GAME OVER 9 9 9" 
220 PRINT"SCORE=";S 

230 IF INKEY$-"S"THEN RUN ELSE 239 
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WORLD TIMES BY R.G.DAVIS 12 7 1984 
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Input sour local time then in line 12 
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If vou live in S.A then line 12 would 
TeoQ.csx3 
12 Z-H-98:0-2n-30 
This chanoes the time to Greenuich time 
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be changed is line 12.. 
Line 14 then checke for 
zero or > 23,59) 

Line 15 then draws the map of the world. 
Extra cities can be added, as an 
example... 

8G E¢$="HAWAI I" >: 2=GH-1@6:0=GMN-36:Cl]= 
3:C222:X3-5:Y3233:G0SLUB 110 

To look at this in more detail.. 
E$-"HAWAlI" Writes HAWAII in HI RES 
2=GH-1@:0=GH-38 subtracts 1@ hours 38 
minutes from G.M.T.. 

C1533C2-2 C] As the contrast colour to 
flash the pixel C2 resets pixel to 
orignal colour.. 

x%3=5:Y3=33 X,Y cordinates to flash the 
pixel, 

X CK X CX X Ok OX OK OK X OX KK X X XX Xx 





a > 


^.» P 


ilegal times (<. 


(9) 


E 
ct 
Go 
° 
H 
° 


c 
O 
vi 
ed 
rg 
je 
C1 
y 
ct 
p^ 
to 
r3 
Oh 
ct 
to 
p 
- 
o 
Cu 
o 
tad 
ct 
SE 
e 


š OO ZA" 


SOUZ ho on 


S$ d00 00y 


Sf [efdequu psgnaqyayuog 
ur peguyTad Teyde yeu TTV 


*ATUO Sdepeetd Jo osn eqeazudl 
JOJ ST [vT1JdeQquu eua EU Sup pusys 
-Jepun e8UY UO AS4ngGyd4quoyj oud Jo 
UOfsstuded eųg yppa poonpoadead 
goef qns 
*aa6I/0ypyy Ootd Got 





pan«(«o» 2g 2, 
Eu LL AE 


|ewI2ap GGZ (a 








"ale" am DIS S43 St ¿d 


L. ff T + T T Y d | 
aq id Za £9 hg Sq 99 ¿d CI PUR Ø JO UOTIBUTGWOD FURS g 


od ig 20 CO vd Gd od ¿d -:63 
au? e eeh EE ee E EE STUL°SZT UFYQ S591 asqunu € EE Ke "LM 
XXXX SLON KKKK | | eI OL109 Bz 
TT EEGEN a 
Qi OLOS az f —:4dh} PUE 3119413 su3 320n43Su63 


Seb C BLN oi 
TFOMTMOLIOS IUJ UF dA} PUE 3I7IJAIO SU 32n445su03 
“3AF dxè FUOM *Q`3"1 au OFA € AUS? SUI FIMTL OF 35nf s4suj3 


Q 
943'99WT3 49430 l11* QB'q3U6SrI] li 'g'3*'1 su$'HS9IH 3808 ¿a uu i " T. 
| | 9 


ite 21u0432913 Uu -:21'(8) d3llIW3 9u3 O3'(2) 40 | —— "o d 
943 WO4$ ssed (Lt QU&JJn2'(Q) ISYA Au UO 3nd SI HIN. "er = gege 
| | ^ ` IfidNI LIA STONIS 





e. xr @ZÇ '"Olsq qusaup4asdxe Əldu]s Sua asppsuoj 


"ó4Od 93 O3 3nd43nO 'j 3ndUI O4 (ou mou» mou am 


| | 'pa32a38p 

LeS79 Ld EAEN SUF 39 SNL EA lEWI2əƏB 9u3 SI H, PME 4a3qunu 34Od 3U} 
AY SI NM, SAS B3 (3E $4001) SEE&4 PUEWWOD ((XJdNIsH» Sul 

9: PAJ} USUE 

GEN ER sq O3 PFEP 344 JO JUILRAFbƏ | EWFIƏP au SI A, PUR waqunu Jad 

ASTldlfhü LIA JINIS UF SF X, 9423Uf'q4Od 344 O4 EJEP SFNdFNO PURWWOD LA'CXYILNO SUL 


"SUT d 35044 
UO $331X2» MO] 4O H9IH È YOU JO J4au3aum yosqap O43 Ou pug SUId 
9*043 YO SMO] PUE SHOIH Fd WED ƏM MOU 4e YOO] $,438] MON “Waa 
US AB 4O Ag UFM SUTd EIER Š Soe Susy, E43 mouy aM Os'"4'[Q 


""Olsq 3uswr4adxae 31 dws BYR JƏpDISuo2 


UFPI LLIM 4a4ndwO2D ayy astmuaygo'santen Lla 


Reu231^$ aitun tr, 
ag ` SAEMLE — LLIM 


x 


3 a EAE ms te "AB, d9» Sue Susyjo 
SSURYS NOK @1TYUM BUTLAdNI $T 453nqwo2 BUF FEYR Suns SsHeW  SAUMTg au SLTYM TG PUR EG Suld üo AS',H9IH, È eg oa EI San 
KKKAILON KKK — (mol JO USU) - ø I 8 I go 46 o Ø 
(9Utd) - gd Id zd Ed SO SO 94 ¿dq 
"eA, GF | CONF Su Uussen?sQ SUOISAJS^UOD AJOJ BEEd $398] PUZ OF 48j234) 


"LEWIISP oi 4O 3Uusl|?^LÜba RJEUIQ È 404 


'ioleq wed&gI[gp 3u3 
O3 48ja4'4auaJnj SIQ3 ulvldXes O|',4j4j, Vt 3u8s34d84 O3 LAG, È PUE 
NO, US 4uasa4d34 O3 ,AgG, SEN SUTG SUL UCTIENGIS HO, AO ,330, 


S214 . (UOI3EUIQUOD 48Qu30 RUE) T 
Béis (0 ð Ə @ Ə D ce» T 


od IQ éd EQ pa Sd 3q 2d -:63 U* sjU3SSJ4dao4 ,D, W s423u"^'ugIl4EUn3IS5 HJIH, AÖ HO, UE 3ussa4d34 
mE š Ke, : n f OF pasn ST ,T, € RJxUuIQq UI'CSIIGIP AWRUIGS SII8 303SƏ4434 sUuId 
| : u Gel WS, 4948346 WO 04 [ÉñnbƏ waqunu È JUTIA e d cu Sieg GE SS 
PINOYS Usauss 344 PUR CBUTCNNAD 11138 Sl In ;uss ins Pe mess Mon 9359u3'2Q - üq P9lileQ*] sUId EJER 8 FEU ZA 34} JO Od O/I Su 
C FAEUTIG) T I Í I I I í ñ CH JDO HFš38 d L102S hg 
ed IQ ced Ed v3 S0 93g 20 -:e3 


| e € è Zå JHL NÖ lifidLliD/1lndNI € e € 
"LOT SP MOT 20 UFE“ sta UE 4*Uu3 aaqunu LEWIDƏP 4554614 aul 


” 
s t 


< — 
, + 





E $ * SOFTHRRE FOR SRLE FROM VSUFTWRREZ X * * 


|. MARCH Looe. 
Ar "E C 1 [^ fe: p p nq A, T : t. i fiji t=" C 1 t Pr T To T w 4 ei LL +. [n A 4 j^ I A ti C E » i t. F: e il t 
available while ztocksz ir 


ALL Prices 
notice, All articles a 


dade uË to four tab 
te c= which compas Vea oon Ysa, 
» and if sou have a diee di ive sszbem 


All tate software Yncludez Pao: 
When orderina aoftuare,s always Se 
if cu have an  exFanzion PRAM uni 
zonnected, 


m £u m 
Tru 


Wel = nexb anded eec EQ. Wee = wnexPandec Vendy ed 


4 L= LL me 
Wes = Ge Ve, Wet = exzbanded V Eon Edel a ' 


TEIS be miley unit of BLA, Pimi = | Disc en lu n oi E, zi 
TE = Tafe or Disg unit of ES. The Price stated for a Tafe unit. 
3 


Ga ja redjuiped, add SEG, to the Tare Ge, The price of a 
1 | 


To allow fazter zerwice send bänk, building society, credit union 
theggeg. op: fust Post mone orders ec that time is nok Wasted in waiting for 


a ochedue to kg cleared, | 
Make chedues Payable fig JG AL TOM oe YEE THARE S s 


s ss Sui ama s 


EEO MEM SUFTHRFE, # E + 
d 
e DESO LE Wa STHTEMEHT Yeku RIGT. OE, Wita | 
Based on LE'VZ D'BERHSE,. Random access records. 


For amall business us 
Requires the Disc Drive Se mi A Printer and Vz DTE. Process ; pin Print end 


Pau into account etc. HL mones calculaticonz 
Gm = Wikh a dk 


ES in and Statement & totals. 
fer more information op See A demonsheation, 


mi rr 


pfo month Statement Zë, La 
carried out, IE, Debit 
Pac ingbtriction booklet, 


ous "ei d 


c 
iit 
^ rr e 


zt 2 dr n x 


II Lei: "e 


d 


das a 


e D.TUlz FILESERMELUH, Solg.DH.  wozlc-wz4d. 


Peada the tafe b apo dise directora to obtain tbhz failetyPes filename 
and sta tA a las z s £ . of Basic or al Programmes, The prinker option will 
Print laka 


ëe p4^T19 — COPTZÁAPFROTECT, q 20, D, Welle ves, 
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e DUE, CTE GARD, D Gg, H, —wvzl-wvz4. 
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